-- stack: in.1 ееее
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2264
-- card count: 8
-- first card id: 6016
-- list block id: 7876
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 56576 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global gameState, winningScore, vulScore, playingTime
  if the userlevel < 4 then set the userlevel to 4
  hide menubar
  set lockscreen to true
  push card
  go card "HQ Preferences"
  put field "Playing Time" into playingTime
  put field "Vulnerability Score" into vulScore
  put field "Winning Score" into winningScore
  pop card
  put "justOpened" into gameState
end openStack

on closeStack
  global gameState
  if gameState ≠ "justOpened" and gameState ≠ "gameOver" then
    answer "This will end the current game." with "That's life"
    resetGame
  end if
  doMenu "Compact Stack"
end closeStack

on resetGame
  global gameState
  set cursor to 4
  set lockscreen to true
  go card "Player 1"
  put 0 into field Score
  go next card
  put 2 into i
  repeat
    if (the name of this card) = "card " & quote & "HQ Preferences" & quote
    then
    exit repeat
  end if
  doMenu "Delete Card"
  add 1 to i
end repeat
go card "Player 1"
send "setGameState justOpened" to bkgnd "Playing Grounds"
end resetGame

on errorSound
  play "harpsichord" tempo 1300 "g6 c#5 g6 c#5 g6 c#5"
end errorSound